﻿(define (factorial x)
  (if (< x 2)
      x
	  (* x (- x 1))))
